1 INPUT"FILENAME   N[157][157][157]";A$:D=PEEK(186):IFD=0THEND=8
5 SYS(57812)"ZS."+A$,D,0:POKE781,0:POKE782,32:SYS65493
6 SYS(57812)"LO."+A$,D,0:POKE781,0:POKE782,16:SYS65493
10 POKE53272,24:POKE53270,24:POKE53280,0:POKE53281,15
12 POKE53282,12:POKE53283,11:PRINT"[129][147]":W=4096-1024
13 FORA=1024TO2023:POKEA,PEEK(A+W):NEXT
14 GOTO14